﻿Imports QuanLyCafe.User_BUS
Imports QuanLyCafe.User_DTO

Public Class frLogin
    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        If txtUser.Text <> "" And txtPass.Text <> "" Then
            QuanLyQuanCafe.ShowDialog()
        Else
            MessageBox.Show("Dien day du thong tin", "THONG BAO")
        End If
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Close()
    End Sub

    Private Sub frLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.CenterToScreen()
    End Sub

    Public Shared Function KtraUser()
        Dim dt As DataTable = New DataTable()
        dt = GetUser_BUS()
        Dim user As User_DTO = New User_DTO()
        Dim soUser As Integer = dt.Rows.Count
        For i = 0 To soUser
        Next
        Return True
    End Function
End Class